home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 September
/
1986-09.d64
/
dos window.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
684b
|
16 lines
10 print"[147]":ifa=0thena=1:print"[155] loading...":load"dos window.obj",8,1
20 clr:dim t(4):a$=chr$(157)+chr$(157)+chr$(157):n$="dos-window"
30 printchr$(147)spc(134)n$:printspc(43)"want to set the t.o.d. clock ? y";
40 print a$;:input b$:ifb$<>"y"then80
50 print:input" hours [157][157][157][157][157]";t(1):ift(1)>12thenprint"[145][145][145]":goto50
60 input"minutes [157][157][157][157]";t(2):ift(2)>59thenprint"[145][145][145]":goto60
70 input"seconds [157][157][157][157]";t(3):ift(3)>59thenprint"[145][145][145]":goto70
80 fori=1to3:h=int(t(i)/10):l=t(i)-10*h:t(i)=16*h+l:next
90 c=56587:pokec+4,peek(c+4)and127
100 fori=0to3:pokec-i,t(i+1):next
110 print"1.to use "n$", press ctrl-d.":print
120 print"2.press return at the "chr$(18)"status:"chr$(146)" line, to"
130 printspc(2)"close window and return."
140 print"3.to deactivate, press run/stop-restore."
150 print"4.sys 51808, to reactivate.":sys51808:new